home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Super Platinum 8
/
Shareware Super Platinum 8.iso
/
mac
/
PROGTOOL
/
VTP031.ZIP;1
/
TEST.ZIP
/
TKEY.PAS
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Pascal/Delphi Source File
|
1993-11-21
|
156 b
|
21 lines
program tkey;
uses
vcrtu;
var
ch : char;
begin
repeat
ch := readkey;
writeln( ord( ch ) ) ;
until ch=#27;
end.